home *** CD-ROM | disk | FTP | other *** search
/ NOVA - For the NeXT Workstation / NOVA - For the NeXT Workstation.iso / SourceCode / AdobeExamples / NX_Binary / DrawingViewWraps.psw < prev    next >
Encoding:
Text File  |  1992-12-19  |  2.8 KB  |  135 lines
  1.  
  2. /*
  3.  * (a)  (C) 1990 by Adobe Systems Incorporated. All rights reserved.
  4.  *
  5.  * (b)  If this Sample Code is distributed as part of the Display PostScript
  6.  *    System Software Development Kit from Adobe Systems Incorporated,
  7.  *    then this copy is designated as Development Software and its use is
  8.  *    subject to the terms of the License Agreement attached to such Kit.
  9.  *
  10.  * (c)  If this Sample Code is distributed independently, then the following
  11.  *    terms apply:
  12.  *
  13.  * (d)  This file may be freely copied and redistributed as long as:
  14.  *    1) Parts (a), (d), (e) and (f) continue to be included in the file,
  15.  *    2) If the file has been modified in any way, a notice of such
  16.  *      modification is conspicuously indicated.
  17.  *
  18.  * (e)  PostScript, Display PostScript, and Adobe are registered trademarks of
  19.  *    Adobe Systems Incorporated.
  20.  * 
  21.  * (f) THE INFORMATION BELOW IS FURNISHED AS IS, IS SUBJECT TO
  22.  *    CHANGE WITHOUT NOTICE, AND SHOULD NOT BE CONSTRUED
  23.  *    AS A COMMITMENT BY ADOBE SYSTEMS INCORPORATED.
  24.  *    ADOBE SYSTEMS INCORPORATED ASSUMES NO RESPONSIBILITY
  25.  *    OR LIABILITY FOR ANY ERRORS OR INACCURACIES, MAKES NO
  26.  *    WARRANTY OF ANY KIND (EXPRESS, IMPLIED OR STATUTORY)
  27.  *    WITH RESPECT TO THIS INFORMATION, AND EXPRESSLY
  28.  *    DISCLAIMS ANY AND ALL WARRANTIES OF MERCHANTABILITY, 
  29.  *    FITNESS FOR PARTICULAR PURPOSES AND NONINFRINGEMENT
  30.  *    OF THIRD PARTY RIGHTS.
  31.  */
  32.  
  33. /*
  34. *    DrawingViewWraps.psw
  35.  *
  36.  *    Version:    2.0
  37.  *    Author:    Ken Fromm
  38.  *    History:
  39.  *            03-07-91        Added this comment.
  40. */
  41.  
  42. defineps PSWDefs ()
  43.     /ldef  {load def} bind def
  44.  
  45.     /m  /moveto ldef
  46.     /rm  /rmoveto ldef
  47.     /l  /lineto ldef
  48.      /rl  /rlineto ldef    
  49.      /c  /curveto ldef
  50.      /rc  /rcurveto ldef
  51.      /cp  /closepath ldef
  52.  
  53.      /w  /setlinewidth ldef
  54.      /j  /setlinejoin ldef
  55.       /cap  /setlinecap ldef
  56.      /mi  /setmiterlimit ldef
  57.  
  58.      /g  /setgray ldef
  59.     /rgb  /setrgbcolor ldef
  60.     /hsb  /sethsbcolor ldef
  61.     /cmyk  /setcmykcolor ldef
  62.  
  63.      /f  /fill ldef
  64.      /s  /stroke ldef
  65. endps
  66.  
  67. defineps PSWSetlinewidth (float LineWidth)
  68.     LineWidth w
  69. endps
  70.  
  71. defineps PSWSetlinejoin (int LineJoin)
  72.     LineJoin j
  73. endps
  74.  
  75. defineps PSWSetlinecap (int LineCap)
  76.     LineCap  cap
  77. endps
  78.  
  79. defineps PSWSetmiterlimit (float MiterLimit)
  80.     MiterLimit mi
  81. endps
  82.  
  83. defineps PSWMoveto (float X, Y)
  84.     X Y m
  85. endps
  86.  
  87. defineps PSWSetgray (float Gray)
  88.     Gray g
  89. endps
  90.  
  91. defineps PSWSetrgbcolor (float Red, Green, Blue)
  92.     Red Green Blue rgb
  93. endps
  94.  
  95. defineps PSWSethsbcolor (float Hue, Sat, Bri)
  96.     Hue Sat Bri hsb
  97. endps
  98.  
  99. defineps PSWSetcmykcolor (float Cyan, Mag, Yel, Black)
  100.     Cyan Mag Yel Black cmyk
  101. endps
  102.  
  103. defineps PSWRmoveto (float X, Y)
  104.     X Y rm
  105. endps
  106.  
  107. defineps PSWLineto (float X, Y)
  108.     X Y l
  109. endps
  110.  
  111. defineps PSWRlineto (float X, Y)
  112.     X Y rl
  113. endps
  114.  
  115. defineps PSWCurveto (float X1, Y1, X2, Y2, X3, Y3)
  116.     X1 Y1 X2 Y2 X3 Y3 c
  117. endps
  118.  
  119. defineps PSWRcurveto (float X1, Y1, X2, Y2, X3, Y3)
  120.     X1 Y1 X2 Y2 X3 Y3 rc
  121. endps
  122.  
  123. defineps PSWClosepath ()
  124.     cp
  125. endps
  126.  
  127. defineps PSWFill ()
  128.     f
  129. endps
  130.  
  131. defineps PSWStroke ()
  132.     s
  133. endps
  134.  
  135.